home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr47
/
asmlib35.zip
/
ASM3DEMO.ZIP
/
MWDEMO.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-01-22
|
2KB
|
118 lines
; MWDEMO.ASM for ASMDEMO - Copyright (C) 1993 Douglas Herr
; all rights reserved
include asm.inc
public mwdemo
extrn mwinit:proc, mwdisplay:proc, mwunhide:proc
extrn mwopen:proc, mwclose:proc, mwcloseall:proc
extrn mwfill:proc, mwclear:proc, mwborder:proc
extrn mwprint:proc, mwselect:proc, mwtop:proc
extrn getkey:proc, ucursoron:proc, cursoroff:proc
extrn tprintce:proc
.data
initseg dw 0
mwh dw 10 dup(0) ; storage for 10 handles
r0 dw 1,1,15,20
color db 4
wtext db 'Window #'
wnumber db '0',0
position label word
column db 1
row db 1
prompt db 'Move cursor with keyboard & press ENTER to select window',0
.code
mwdemo proc
mov color,4
mov wnumber,'0'
mov position,0101h
call mwinit
mov al,101b ; enable shadow & unhide for all
mov initseg,ax ; save segment address of screen buffers
xor di,di
mov cx,10
m0: lea bx,r0
call mwopen
mov mwh[di],ax
mov bx,ax
mov ah,color
mov al,0
call mwborder
call mwfill
lea si,wtext
xor dx,dx
call mwprint
call mwunhide
inc r0
add r0+2,2
inc r0+4
add r0+6,2
inc color
inc wnumber
loop m0
m1: call mwdisplay
lea si,prompt
xor dx,dx
mov ah,15
call tprintce
m1a: mov dx,position
call ucursoron
m2: call getkey
cmp ax,27 ; Esc?
je exit ; exit if so
cmp ax,13 ; Enter?
je select
shr ah,1 ; extended keycode?
jnc m2 ; no, get next key
cmp al,72
je up
cmp al,75
je left
cmp al,77
je right
cmp al,80
je down
jmp m2
select: mov dx,position
call mwselect
jc m2
call mwtop
jmp m1
up: sub row,1
adc row,0
jmp m1a
left: sub column,1
adc column,0
jmp m1a
right: inc column
jmp m1a
down: inc row
jmp m1a
exit: call mwcloseall
call mwdisplay
; restore initial window coordinates
mov ax,1
mov r0,ax
mov r0+2,ax
mov r0+4,15
mov r0+6,20
; release the screen buffers
mov es,initseg
mov ah,49h
int 21h
; hide the cursor
call cursoroff
ret
mwdemo endp
end